home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / comms / dialers.arj / DP14.T < prev    next >
Text File  |  1993-11-27  |  3KB  |  104 lines
  1.     ::    dp14.t    AT&T DataPort 14.4/FAX Modem and KeepInTouch Card
  2. dialnum        
  3.     pat; pat 9l OK
  4.     put "ATE1S0=0\r";  wait -f2
  5.     if "!9"  gosub waketb    :: get modem to respond
  6.     put "AT&F\\N1"
  7.     if js2,a_mnp put "\\N7"
  8.     else if js2,mnp put "\\N6"
  9.     if js2,cel put "&F5"
  10.     else if %cellular put "&F5"
  11.     if "!%s2" if S>19200 put "\\N5"; set s2 "LAP/BUFFER"
  12.     put "\r"
  13.     wait -f2
  14.     putw "AT&D2&C1V1X6S0=0&T5%C0\\Q3\r"
  15.     if js2,_s put "\\Q1 "
  16.     if js2,v23  put "S41=12"
  17.     if js2,v22  put "S41=7"
  18.     if js2,v21  put "S41=10"
  19.     if is5,300  put "S41=11"
  20.     if is5,1200 put "S41=8"
  21.     if is5,2400 put "S41=6"
  22.     if is5,4800 put "S41=5"
  23.     if is5,7200 put "S41=4"
  24.     if is5,9600 put "S41=3"
  25.     if dp ss s2 "(c:)(.*)";  if %z2 put "%z2 "    :: for extra commands
  26.     if "%s3>8" put "S7=70"        : longer wait if long distance
  27.     put "Q0S10=10V1\r"; wait -f2
  28.     :::if %s1  if !Js1,s handshake slow; lput "Handshake SLOW: "
  29.     if %alds if ps3,0 putw "ATS8=10\r"
  30.     put "%mprefix";  put "%s3%alds";  dis -Q
  31.     if js2,man put ";\r"; echo "Hit F1 when Tone is heard"; t; put "ATD"
  32.     put "\r";  dis -t
  33.     if "js3,;"  accept s1 "Lift Telephone Receiver, Hit ENTER"; o; return
  34.     pat 1 "CONNECT\r"; pat 2l "NO CARRIER"; pat 3l "BUSY"; pat 4 RING;
  35.     pat 5l "ECT 12"; pat 6l "ECT 24"
  36.     pat 8l "NO DIALTONE"; pat 10l "CONNECT 300"
  37.     pat 11l "CONNECT 96"; pat 12l "CONNECT 192"
  38.     pat 13l "VOICE"; pat 14l "NO ANS"; pat 15l "CONNECT 4800"
  39.     pat 16l "ECT 7200";  pat 17l "ECT 12000";  pat 18l "ECT 14400"
  40.     pat 19l "ECT 38400"; pat 20i "ERROR"
  41.     wait -f72
  42.     while "4&&!L>3" wait -f40    :: wait for a few rings only
  43.     sets s8 %y2
  44.     if "n||8||9||2||3||4||13||14||20" goto sorry
  45.     dis -d
  46.     if dd while "!c&&L<20" sleep 1    : For modems with slow carrier det
  47.     if "hCARRIER" ss y "[0-9]+";  estimate 0 z0
  48.     if !%s1 goto ns1
  49.     if !Js1,_s handshake slow; lput "Handshake SLOW: "
  50.     echo "Speed Locked"; goto mm2end
  51. ns1:    if "h/REL" echo "V.42/MNP Connected";  handshake both; goto mm2end
  52.     if "h/V42" echo "V.42 Connected";  handshake both; goto mm2end
  53.     if "h/MNP" echo "MNP Connected";  handshake both; goto mm2end
  54.     if js2,mnp set s2 ""
  55.     if "1||10" if is5,450 sp 450; echo "450 bps"; goto mm2end
  56.     if "1||10" sp 300 goto mm2end
  57.     if 5 sp 1200 goto mm2end
  58.     if 6 sp 2400 goto mm2end
  59.     if 15 sp 4800; goto mm2end
  60.     if 11 sp 9600; goto mm2end
  61.     if "12" sp 19200; goto mm2end
  62.     if "18" sp 19200; goto mm2end
  63.     echo "Unknows Connect Message!!"
  64.     return
  65. sorry:    echo "No Connect Message Detected."
  66.     return
  67. mm2end:    set s9 "y"
  68.     return
  69.  
  70. call2    bye; sp 38400
  71.     if "!jbaudstr,baud4" echo "Must use baud4.t!!"; abort
  72.     gosub waketb; pat 1 OK; ena -t
  73.     put "AT\r"
  74.     wait -f2
  75.     put "ATH0M0S0=1\\K1\\N7\\Q3\r"
  76.     wait -f2
  77.     z pb1    : send break when recovering from ZRPOS
  78.     handshake on
  79.     return
  80. call1    bye; bye; sp 38400; handshake off; gosub waketb; putw ATM0H1\r"
  81.     return
  82.  
  83.  
  84.     : initializes the NVRAM 
  85.     : "call init,aa" for Unix or VMS dial-in (NOT YAM HOST OPERATION!!)
  86.     : "call init,cel" for originating cellular calls
  87.     : "call init,cela" for answering cellular calls
  88.     : "call init,aa,cela" for Unix/VMS answering cellular calls
  89.     :
  90. initmodem
  91.     echo "Initializing AT&T KIT Card / Dataport Modem"
  92.     speed 19200; ena -t
  93.     putw "AT&FE1\r"
  94.     if js0,cela put "AT&F6"
  95.     else if js0,cel put "AT&F5"
  96.     else if js0,aa put "AT\\N4"
  97.     else putw "AT\\N1"
  98.     putw "&D2&C1V1X6S0=0&T5%C0\\Q0\r"
  99.     if js0,aa putw "ATE0Q0S0=2\\Q3\r"
  100.     putw "AT&W\r"
  101.     return
  102.  
  103.  
  104.